home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 August / Software of the Month Club 1996 August.iso / pc / os2 / famtree / abc_list.ftx next >
Encoding:
Text File  |  1996-05-24  |  1.5 KB  |  63 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    <This script displays an ordered list of all persons in the family tree
  10.     / Dieses Skript zeigt eine alphabetische Liste aller Menschen im Stammbaum>
  11.  
  12. */
  13.  
  14. /* ----------------------- Params  /  Parameter ------------------- */
  15.  
  16. namewidth=30
  17.  
  18. IF getLanguage()='Deutsch' THEN DO
  19.    header    = 'Alphabetische Liste. Heute ist der '
  20. END
  21. ELSE DO
  22.    header    = 'Alphabetical List - Today is :'
  23. END
  24.  
  25.  
  26. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  27.  
  28. SAY(header||DATE())
  29. SAY('.............................................')
  30.  
  31. /* ------------------------------ Output / Ausgabe ----------------- */
  32.  
  33. /* Sort Persons by Name,FirstName / Menschen nach Name,Vorname sortieren */
  34. rc=sortPersons('N,F')
  35.  
  36. /* Display persons in tree / Zeige die Menschen an */
  37. rc=selectPerson('F')
  38.  
  39. DO UNTIL RC=0
  40.  
  41.    /* Calc Name,FirstName / Berechne Name,Vorname */
  42.    result=getName()
  43.    firstname=getFirstName()
  44.    IF LENGTH(firstname)>0 THEN result=result||','||firstname
  45.    result=LEFT(result,namewidth)
  46.  
  47.    /* Calc Dates / Berechne Daten */
  48.    birth=getBirthDate()
  49.    IF length(birth)>0 THEN result=result||' *'||birth||' '
  50.  
  51.    death=getDeathDate()
  52.    IF length(death)>0 THEN result=result||'+'||death
  53.  
  54.    /* Output / Ausgabe */
  55.    SAY(result)
  56.  
  57.    /* Next one / Naechster */
  58.    rc=selectPerson('N')
  59. END
  60.  
  61. /* Done / Fertig */
  62.  
  63. RETURN